#ifndef _RTYPES_H_
#define _RTYPES_H_

#define SXP_LOW_PART	3

#define Any_ID		248
#define Any_MASK	0
#define Atom_ID		248
#define Atom_MASK	1
#define Symbol_ID	14
#define Symbol_MASK	255
#define Promise_ID	22
#define Promise_MASK	255
#define Ref_ID		248
#define Ref_MASK	7
#define EPtr_ID		24
#define EPtr_MASK	255
#define WRef_ID		32
#define WRef_MASK	255
#define Cons_ID		250
#define Cons_MASK	7
#define List_ID		42
#define List_MASK	255
#define S4_ID		50
#define S4_MASK	255
#define Lambda_ID	252
#define Lambda_MASK	7
#define Closure_ID	60
#define Closure_MASK	255
#define Builtin_ID	68
#define Builtin_MASK	255
#define Special_ID	76
#define Special_MASK	255
#define Array_ID	249
#define Array_MASK	1
#define Raw_ID		87
#define Raw_MASK	255
#define Environment_ID	95
#define Environment_MASK	255
#define Formals_ID	Environment_ID
#define Formals_MASK Environment_MASK
#define Logical_ID	103
#define Logical_MASK	255
#define Number_ID	249
#define Number_MASK	3
#define Int_ID		109
#define Int_MASK	255
#define Double_ID	117
#define Double_MASK	255
#define Complex_ID	125
#define Complex_MASK	255
#define String_ID	135
#define String_MASK	255
#define Vector_ID	143
#define Vector_MASK	255
#define Expression_ID	151
#define Expression_MASK	255
#endif /* RTYPES_H_ */
